unit FormGridDOA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormBaseGrid, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinCaramel, dxSkinCoffee,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSharp, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxContainer, cxEdit, cxStyles,
  cxCustomData, cxFilter, cxData, cxDataStorage, DB, cxDBData, Menus,
  dxLayoutcxEditAdapters, dxLayoutControl, ActnList, cxGridCustomPopupMenu,
  cxGridPopupMenu, StdCtrls, cxButtons, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, cxPC, cxLabel,
  dxSkinBlack, dxSkinBlue, dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy,
  ADODB, dxSkinsdxBarPainter, dxBar, Oracle, OracleData,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxLayoutContainer, cxNavigator, System.Actions, cxTL, cxTLdxBarBuiltInMenu,
  cxInplaceContainer, cxTLData, cxDBTL;

type
  TfmGridDOA = class(TfmBaseGrid)
    qrData: TOracleDataSet;
    qrDataIU: TOracleQuery;
    qrDataD: TOracleQuery;
    procedure acDeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmGridDOA: TfmGridDOA;

implementation
//uses DatamoduleFIB;
{$R *.dfm}

procedure TfmGridDOA.acDeleteExecute(Sender: TObject);
begin
  inherited;
  Screen.Cursor := crHourGlass;
  try
    qrDataD.SetVariable('ID', qrData['ID']);
    qrDataD.Execute;

    if qrDataD.Session.InTransaction then
      qrDataD.Session.Commit;

    qrData.Refresh;
  finally
    Screen.Cursor := crDefault;
  end;
end;

end.
